Private Sub Workbook_Open()
    Application.OnKey "^+I", "ShowSelectionInfo"
    Application.OnKey "^+Q", "ToggleColumnQuality"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^+I"
    Application.OnKey "^+Q"
End Sub
